home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00002Series_189.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  382 b   |  16 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "1" into field "bemodnum"
  4.   if field "whmodnum" = 4 then
  5.     put "51" into field "bemodnum"
  6.   end if
  7.   if field "whmodnum" = 5 then
  8.     put "51" into field "bemodnum"
  9.   end if
  10.   put EMPTY into field "bearingoption"
  11.   put EMPTY into field "brakeoption"
  12.   put "WB11; " into field "bearingoption"
  13.   puppetTransition(47, 1, 8)
  14.   VBSEARCH()
  15. end
  16.